home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr08
/
myb_203.zip
/
MYB_203.ZIP
/
REPORT1.MRG
< prev
next >
Wrap
Text File
|
1993-05-04
|
1KB
|
44 lines
<*
REPORT1.MRG - Sample merge print file for CONTACT database.
~~~~~~~~~~~
Print a report for all customers with a rank less than 4.
This report will print one customer per page including all memo notes.
NOTE: The statement below which begins with the hash mark (#) is only
evaluated ONCE! However, since the result of this function is assigned
to a memory variable, "_Date", it may be used later without needing to
re-evaluate the entire function (much faster).
>
<# _Date := CMONTH(DATE()) +" "+ ALLTRIM(STR(DAY(DATE()))) +","+ STR(YEAR(DATE())) >
< LOCATE( "!EMPTY(RANK) .AND. RANK \< '4'" ) >
XYZ Company Inc.
Preferred customer list (RANK \<= 3)
Date of report: < _Date >
--------------------------------------------------------------------------------
< TRIMLINES (
TRIM( TRIM (SAL)+" "+FIRST_NAME) +" "+ LAST_NAME +_LF +
TITLE + _LF +
DEPARTMENT+ _LF +
COMPANY + _LF +
ADDRESS_1 + _LF +
ADDRESS_2 + _LF +
TRIM (CITY)+ ", " + STATE + _LF +
ZIP_CODE + _LF )
>
Phone: < PHONE_NO > Fax: < FAX_NO >
Date of last fax: < LAST_FAX > Last call: < LAST_CALL > Follow up: < FOLLOW_UP >
Rank: < RANK > Current status: <TRIM(STATUS)> <IF(FAX, "", "DON'T FAX!")>
Notes:
<*
The next line will print the memo, changing all soft carriage returns
CHR(141) to hard carriage returns CHR(13)
>
< STRTRAN( NOTES, CHR(141), CHR(13) ) >